
***		Figure H.2
#delimit ;
	/*******************************************************************************
			Generating Graph from Relevant Variables
	*******************************************************************************/
	use "$datadir/banking/rbi_payment_statistics.dta", clear;
	format vol_mio* value_mio* vol_mio_norm %12.0fc;

	/* Create Macros for Table Setting */	
	forval y = 2015/2019 {;
		local jan `jan' `=mofd(mdy(1,1,`y'))';
		local jul `jul' `=mofd(mdy(7,1,`y'))';		
	};		
	
	xtset rbibitemsequence month;
	sort rbibitemsequence month;


	************	Creating Locals to Keep Graphs in Sync
	#delimit ;
	local demonetization "681.5"; // Early November 2016
	local start_period "2014m12";
	local end_period "2019m11";
	local volume "vol_mio_norm_sep";
	local value "value_bio_norm_sep";
	local version "base";

	local mwallet_code "30";
	local pos_code "38";
	local credit_code "25";
	local debit_code_atm "27";
	local debit_code "28";
	local rbi_note_1 "Notes: September 2016 is normalized to 0. RBI change the Payment System Statistics reporting";
	local rbi_note_2 "format from November 2019 onward. Only old-format figures are shown";


	************ 	Debit Card Transaction (at ATM)
	* Trx Volume
	*#delimit ;
	twoway 	line `value' month if rbibitemsequence==`debit_code_atm'&month>tm(`start_period')&month<tm(`end_period'),
			xline(`demonetization') legend(off)
			title("Total Value of Debit Card Transaction at ATM")
			xtitle("") ytitle("Total Transaction Value (INR billion)" " ") 
			xmlab(679 "{it:Demonetization}", notick labsize(small)) xlab(,labsize(medsmall) labgap(3))
			xlab(`jul', format(%tmCY) noticks labgap(4))
			xtick(`jan',tlength(*0.75) grid)
			graphregion(fc(white) margin(medium) lc(white)) scheme(lcolor2);
	graph export "$outputdir_fig/Figure_H_2.pdf", replace;		
			
